home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / NUMDERIV.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  1.9 KB  |  79 lines
  1. 10  'NUMDERIV - 10 MAR 96 rev. 29 DEC 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  UL$=STRING$(80,205)
  5. 50  COLOR 7,0,5
  6. 60  '
  7. 70  '.....start
  8. 80  CLS:A#=0
  9. 90  COLOR 15,1
  10. 100  PRINT " NUMBERS and FUNCTIONS";TAB(61);"by George C. Murphy ";
  11. 110  COLOR 5,0:PRINT STRING$(80,223);
  12. 120  COLOR 7,0
  13. 130  '
  14. 140  PRINT " Press number in < > to:
  15. 150  PRINT UL$;
  16. 160  PRINT "   < 1 >  Find powers, roots, reciprocals & logarithms
  17. 170  PRINT "   < 2 >  Find antilogarithms
  18. 180  PRINT
  19. 190  PRINT "   < 0 >  EXIT
  20. 200  Z$=INKEY$:IF Z$=""THEN 200
  21. 210  IF Z$="0"THEN CLS:RUN EX$
  22. 220  IF Z$="1"THEN 260
  23. 230  IF Z$="2"THEN 490
  24. 240  GOTO 200
  25. 250  '
  26. 260  '.....derivatives
  27. 270  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  28. 280  INPUT " ENTER: Number to be analyzed........";A
  29. 290  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  30. 300  PRINT " Functions of";A
  31. 310  PRINT UL$;
  32. 320  PRINT " Base number............................";A
  33. 330  PRINT " Square.................................";A^2
  34. 340  PRINT " Cube...................................";A^3
  35. 350  B=A^(1/2)
  36. 360  PRINT " Square root............................";B
  37. 370  C=A^(1/3)
  38. 380  PRINT " Cube root..............................";C
  39. 390  D=1/A
  40. 400  PRINT " Reciprocal.............................";
  41. 410  PRINT USING "##.######";D
  42. 420  NL=LOG(A)
  43. 430  PRINT " Natural logarithm......................";NL
  44. 440  CL=LOG(A)/LOG(10)
  45. 450  PRINT " Common logarithm.......................";CL
  46. 460  GOTO 610
  47. 470  END
  48. 480  '
  49. 490  '.....antilogarithm
  50. 500  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  51. 510  INPUT " ENTER: Value of logarithm.   ....";A
  52. 520  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  53. 530  PRINT "        Value of logarithm...............";A
  54. 540  ANL=EXP(A)
  55. 550  PRINT "        Antilogarithm if natural log.....";ANL
  56. 560  ACL=10^A
  57. 570  PRINT "        Antilogarithm if common log......";ACL
  58. 580  GOTO 610
  59. 590  END
  60. 600  '
  61. 610  '.....end
  62. 620  GOSUB 660
  63. 630  GOTO 70
  64. 640  END
  65. 650  '
  66. 660  'HARDCOPY
  67. 670  GOSUB 780:LOCATE 25,2:COLOR 14,6
  68. 680  PRINT " Press 1 to print screen, 2 to print screen & ";
  69. 690  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  70. 700  Z$=INKEY$:IF Z$="3"THEN GOSUB 780:RETURN
  71. 710  IF Z$="1"OR Z$="2"THEN GOSUB 780:GOTO 730
  72. 720  GOTO 700
  73. 730  FOR QX=1 TO 24:FOR QY=1 TO 80
  74. 740  LPRINT CHR$(SCREEN(QX,QY));
  75. 750  NEXT QY:NEXT QX
  76. 760  IF Z$="2"THEN LPRINT CHR$(12)
  77. 770  GOTO 670
  78. 780  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  79.